home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8708a.d64
/
neuer cursor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
32 lines
0 REM *********************************
1 REM * PROGRAMMIERBARE ZEICHEN *
2 REM * ZEICHENSATZ WIRD VOM ROM INS *
3 REM * RAM GESPIEGELT NACH 48*256. *
4 REM * HIER KOENNEN DIE ZEICHEN *
5 REM * BELIEBIG UMDEFINIERT WERDEN. *
6 REM * DIE ROUTINE BELEGT 49152-49174*
7 REM *********************************
20 POKE56,48:CLR :REM SCHUTZ VOR UEBERSCHREIBEN
21 POKE56334,PEEK(56334)AND254 :REM INTERRUPT AUS
22 POKE1,PEEK(1)AND251 :REM EIN/AUSGABE AUS UND ZEICHENROM EIN
24 FORI=0TO22:READA:POKE49152+I,A:NEXT:SYS49152
25 DATA169,0,160,208,133,95,132,96,160,224,133,90,132,91,160,64,133,88,132
26 DATA89,76,191,163
27 POKE1,PEEK(1)OR4 :REM EIN/AUSGABE EIN
28 POKE56334,PEEK(56334)OR1 :REM INTERRUPT EIN
29 POKE53272,(PEEK(53272)AND240)+12 :REM ZEICHENZEIGER STELLEN
30 Z1=48*256:Z2=56*256 :REM ADRESSE ZEICHENSPEICHER SATZ 1/2
98 :
99 :
100 FORI=0TO5:POKEZ1+8*160+I,0:NEXT :REM SPACE REVERS SATZ 1 VERAENDERN
101 END
198 :
199 :
200 DATA 24,24,24,24,126,60,24,0 :REM PFEIL FUER SPACE
201 FORI=0TO7:READA:POKEZ1+8*32+I,A:NEXT
202 POKE198,0:WAIT198,1:FORI=0TO7:POKEZ1+8*32+I,0:NEXT
298 :
299 :
300 A=Z1+8*32:B%=1:FORI=0TO1000:B%=B%*2:IFB%=256THENB%=1
301 POKEA,B%:NEXT :REM BEWEGUNG